home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / tbasmhlp.arc / SOURCE.ARC / SCRSAVE.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-07-24  |  1.3 KB  |  51 lines
  1. ;FILE    :SCRSAVE (Saves screen to integer array)
  2. ;USEAGE    :SCRSAVE (ARRAY%(),AREA%) Save screen to arrary% starting at 2000*area%
  3. scrsave    segment
  4.     assume    cs:scrsave
  5.     push    bp        ;save bp
  6.     mov    bp,sp
  7.     push    ds        ;save this too!
  8.  
  9.     les    di,[bp+6]    ;Calculate offset into array.
  10.     mov    ax,es:[di]    ;Let's see where to go in array.
  11.     mov    bx,4000
  12.     mul    bx        ;4000 bytes per page.
  13.     mov    di,ax        ;This is offset into array.
  14.     mov    si,0        ;Start at begining of screen area.
  15. ;Let's figure out display address/color or monochrome?
  16.     mov    bx,0040h    ;seg that has vid info.
  17.     mov    es,bx
  18.     mov    dx,es:[063h]    ;base address of video port
  19.     add    dx,6        ;we want base+6
  20.     mov    ax,0b000h    ;monochrome address
  21.     mov    bx,es:[010h]    ;display mode set
  22.     and    bx,110000b    ;mask off what we want
  23.     cmp    bx,110000b
  24.     jz    mono        ;jump if monochrome is set.
  25.     mov    ah,0b8h        ;base address of color
  26. mono:    push    ax        ;No let's set source segment.
  27.     pop    ds
  28.     mov    es,[bp+10]    ;Set ES to start of array. (Destination)
  29.     mov    cx,2000        ;Move 1000 words.
  30.     cld            ;Clear direction flag for string move.
  31. loopm:    cli            ;NO IRQS while I'm working!
  32. notyet:    in    al,dx        ;read video board
  33.     shr    al,1        ;bit we want is 0
  34.     jb    notyet
  35.     sti            ;Let'm get outa the car and go potty
  36.     nop            ;pass some time folks
  37.     cli
  38. notyet2:in    al,dx
  39.     shr    al,1
  40.     jnb    notyet2
  41.     movsw
  42.     sti            ;OK IRQS again
  43.     loop    loopm
  44.  
  45.     pop    ds
  46.     pop    bp
  47.  
  48.  
  49. scrsave    ends
  50.     end
  51.